<script>on mouseDownset the hilite of me to truerepeat foreverlock screengo to next cardunlock screen with visual effect scroll leftif the mouse is up then exit repeatend repeatset the hilite of me to falseend mouseDown</script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>435</left>
<top>308</top>
<right>465</right>
<bottom>337</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>8964</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>on mouseDownset the hilite of me to truerepeat foreverlock screengo to prev cardunlock screen with visual effect scroll rightif the mouse is up then exit repeatend repeatset the hilite of me to falseend mouseDown</script>
<script>on mouseUpput "HC1 - compatible with HC version 1.25"&return into xput "HC2 - compatible with HyperCard version 2.1"&return after xput "SC - compatible with SuperCard version 1.6" after xanswer xend mouseUp</script>
</part>
<part>
<id>41</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>20</left>
<top>22</top>
<right>44</right>
<bottom>36</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>HC1</name>
<script></script>
</part>
<part>
<id>42</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>48</left>
<top>22</top>
<right>72</right>
<bottom>36</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>HC2</name>
<script></script>
</part>
<part>
<id>43</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>73</left>
<top>22</top>
<right>97</right>
<bottom>36</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>SC</name>
<script></script>
</part>
<part>
<id>44</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>102</left>
<top>21</top>
<right>190</right>
<bottom>36</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>compat</name>
<script></script>
</part>
<part>
<id>45</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>414</left>
<top>22</top>
<right>494</right>
<bottom>37</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name>new?</name>
<script></script>
</part>
<name>XCMD/XFCN</name>
<script>on opencardcompatible fld "compat"hide field "source"hide field "more source"if there is a card field "documentation" thenset the scroll of card field "documentation" to 0end ifif there is a card field "source" thenhide card fld "source"set the scroll of card field "source" to 0end ifif there is a card field "more source" thenhide card fld "more source"set the scroll of card field "more source" to 0end ifset the scroll of field "documentation" to 0set the scroll of field "source" to 0set the scroll of field "more source" to 0if there is a btn "Hide Pascal Source" thenset the name of btn "Hide Pascal Source" to "Show Pascal Source"end ifif there is a btn "Hide C Source" thenset the name of btn "Hide C Source" to "Show C Source"end ifif there is a btn "Show C Source: part 2" thenset the name of btn "Show C Source: part 2" to "Show C Source"end ifpass openCardend opencardon Installget ChooseTargetStack()if there is a cd fld "documentation" thenput second word of first line of cd field "documentation" into typeelseput second word of first line of field "documentation" into typeend ifInstallResource type,the short name of this card,itend Installon Compatible listhide bg btn "HC1"hide bg btn "HC2"hide bg btn "SC"repeat with i = 1 to the number of items in listshow bg btn item i of listend repeatend Compatible</script>